home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / submenu / 00198.ls < prev    next >
Encoding:
Text File  |  1995-03-29  |  760 b   |  32 lines
  1. on mouseUp
  2.   global descriptions, selectedgame, mylevel, lastclicked
  3.   if lastclicked = 0 then
  4.     set lastclicked to 1
  5.   end if
  6.   sound stop 1
  7.   sound stop 2
  8.   puppetSound(0)
  9.   puppetSound("click2")
  10.   updateStage()
  11.   if the soundBusy of 1 then
  12.     repeat while the soundBusy of 1
  13.       updateStage()
  14.     end repeat
  15.   end if
  16.   puppetSound(0)
  17.   set stemp to the name of cast the castNum of sprite 14
  18.   set descriptions to 1 - value(char 5 of stemp)
  19.   set the castNum of sprite 14 to the number of cast ("secr" & descriptions)
  20.   if descriptions = 0 then
  21.     puppetSprite(26, 0)
  22.     set selectedgame to lastclicked
  23.     if value(selectedgame) <> 0 then
  24.       grablevel()
  25.     else
  26.       newcomer()
  27.     end if
  28.   else
  29.     set lastclicked to selectedgame
  30.   end if
  31. end
  32.